home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed6.d64 / menu (.txt) next >
Commodore BASIC  |  2007-02-04  |  798b  |  29 lines
  1. 10 POKE53280,0:POKE53281,0:REM 90:02:15
  2. 20 PRINT"[147][156]    ** TPUG EDUCATIONAL DISK ED-6 **"
  3. 30 PRINT"       [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 40 DIMA$(15)
  5. 50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  6. 60 INPUT"CHOOSE(1-15):";A$
  7. 70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
  8. 80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  9. 90 FORT=1TO1500:NEXT:PRINT"[147]LOADING...... "A$(A)
  10. 100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  11. 110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  12. 59999 :
  13. 60001 DATA "SPEED SPELL 2"
  14. 60002 DATA "SPEED SPELL 3"
  15. 60003 DATA "SPEED SPELL 4"
  16. 60004 DATA "SPEED SPELL 5"
  17. 60005 DATA "SPEED SPELL 6"
  18. 60006 DATA "SPEED SPELL 7"
  19. 60007 DATA "SPEED SPELL 8"
  20. 60008 DATA "SPELLING ERROR 5"
  21. 60009 DATA "SPELLING ERROR 6"
  22. 60010 DATA "SPELLING GAME"
  23. 60011 DATA "WORD DRILL"
  24. 60012 DATA "WORD POWER 2"
  25. 60013 DATA "WORD SEARCH"
  26. 60014 DATA "WORD SHOOT"
  27. 60015 DATA "TEACHER INFO"
  28. 60016 DATA "**"
  29.